home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 1901_000 / disk1930 / tslog.for < prev    next >
Encoding:
Text File  |  1988-10-30  |  370 b   |  21 lines
  1.       PROGRAM TSLOG
  2. C
  3. C     TO TEST SLOGIC
  4. C     OLYMPIC SOFTWARE   9/27/88
  5. C
  6.       EXTERNAL SLOGIC
  7.       INTEGER*2 IOP,IA,IB,IC
  8. C
  9.       WRITE(*,10)
  10.  10   FORMAT(' ENTER IOP(1,2,3,4:AND,OR,XOR,NOT), IA, IB: ',$)
  11.       READ(*,*)IOP,IA,IB
  12. C
  13.       CALL SLOGIC(IOP,IC,IA,IB)
  14. C
  15.       WRITE(*,11)IC
  16.  11   FORMAT(' IA.IOP.IB= ',I8)
  17. C
  18.       STOP
  19.       END
  20.  
  21.